﻿
Imports System.IO

Public Class [object]
    Inherits xhtmlControl

    Protected Overrides Function availableAttribute(ByVal key As String) As Boolean
        Return attributesCollection.common(key) OrElse _
                attributesCollection.archive(key) OrElse _
                attributesCollection.classid(key) OrElse _
                attributesCollection.codebase(key) OrElse _
                attributesCollection.codetype(key) OrElse _
                attributesCollection.data(key) OrElse _
                attributesCollection.declare(key) OrElse _
                attributesCollection.height(key) OrElse _
                attributesCollection.name(key) OrElse _
                attributesCollection.standby(key) OrElse _
                attributesCollection.tabindex(key) OrElse _
                attributesCollection.type(key) OrElse _
                attributesCollection.width(key) OrElse _
                attributesCollection.usemap(key)
    End Function

    Public Sub New(Optional ByVal buff As Stream = Nothing)
        MyBase.New(buff, "object")
    End Sub
End Class

Public Class param
    Inherits onelineXHtmlControl

    Protected Overrides Function availableAttribute(ByVal key As String) As Boolean
        Return attributesCollection.id(key) OrElse _
                attributesCollection.name(key) OrElse _
                attributesCollection.type(key) OrElse _
                attributesCollection.value(key) OrElse _
                attributesCollection.valuetype(key)
    End Function

#If RETIRED Then
    Protected Overrides Function _tagfinal() As String
        Return onelineXHtmlControl.tagfinal()
    End Function
#End If

    Public Sub New(Optional ByVal buff As Stream = Nothing)
        MyBase.New(buff, "param")
    End Sub
End Class